program Project1; // Zadanie 1.7

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x, y : Real;
  suma, roznica, iloczyn, iloraz : Real;

begin
  Writeln('Program oblicza sume, roznice, iloczyn i iloraz dwoch liczb.');
  Writeln('Podaj x.');
  Readln(x);
  Writeln('Podaj y.');
  Readln(y);

  suma := x+y;
  roznica := x-y;
  iloczyn := x*y;
  iloraz := x/y;

  Writeln('Dla x = ', x:4:2, ' i y = ', y:4:2);
  Writeln; // wyswietlenie pustej linii
  Writeln('suma = ',suma:4:2, ',');
  Writeln('roznica = ', roznica:4:2, ',');
  Writeln('iloczyn = ', iloczyn:4:2, ',');
  Writeln('iloraz = ', iloraz:4:2, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.
